<script runat="server">
Function Seperate(ByVal lsX  As String,ByVal lsY As String) As String
	Return Mid(lsX, InStr(1, lsX, lsY) + Len(lsY) + 1, InStr(InStr(1, lsX, lsY) + Len(lsY) + 1, lsX, "{") - (InStr(1, lsX, lsY) + Len(lsY)) - 2)
End Function
</script>